﻿Public Class cFolios
    Private _rango() As Integer
    Public Sub New(ByVal inicio As Integer, ByVal cantidad As Integer)
        creaArray(inicio, cantidad)
    End Sub

    Public ReadOnly Property folios As Integer()
        Get
            Return _rango
        End Get

    End Property

    Public WriteOnly Property rangos(ByVal inicio As Integer, ByVal cantidad As Integer) As Integer
        Set(ByVal value As Integer)
            creaArray(inicio, cantidad)
        End Set
    End Property

    Private Sub creaArray(ByVal inicio As Integer, ByVal cantidad As Integer)
        Dim i As Integer
        Dim valores(cantidad - 1) As Integer
        For i = 0 To cantidad - 1
            valores(i) = inicio + i
        Next
        _rango = valores
    End Sub


End Class
